crosstalk preselect

bscols(widths = c(3, NA),
  list(
    filter_checkbox("dist", "dist", shared_lw, ~dist, inline = TRUE)
  ),
  plot_ly(data = shared_lw) %>%
      add_markers(x = ~dist, y = ~speed)
  )  

dist

2 4 10 14 16 17 18 20 22 24 26 28 32 34 36 40 42 46 48 50 52 54 56 60 64 66 68 70 76 80 84 85 92 93 120

function filter_default() {
    document.getElementById("dist").getElementsByClassName("selectized")[0].selectize.setValue(2, false);
 }
window.onload = filter_default;